﻿<%
'****************************************
' xnxf_DS 子菜单
'****************************************
Function xnxf_DS_SubMenu(id)
	Dim aryName,aryPath,aryFloat,aryInNewWindow,i
	aryName=Array("首页","分享设置")
	aryPath=Array("main.asp","main.asp?type=share")
	aryFloat=Array("m-left","m-left")
	aryInNewWindow=Array(False,False)
	For i=0 To Ubound(aryName)
		xnxf_DS_SubMenu=xnxf_DS_SubMenu & MakeSubMenu(aryName(i),aryPath(i),aryFloat(i)&IIf(i=id," m-now",""),aryInNewWindow(i))
	Next
End Function
%>